#     Xepec.ru - социальная сеть
#     Copyright (C) 2008  Fedorchenko Alexander
#
#     This program is free software: you can redistribute it and/or modify
#     it under the terms of the GNU Affero General Public License as
#     published by the Free Software Foundation, either version 3 of the
#     License, or (at your option) any later version.
#
#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU Affero General Public License for more details.
#
#     You should have received a copy of the GNU Affero General Public License
#     along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#     Autor: Fedorchenko Alexander
#     Mail: sos20@list.ru
#     Date: 17/01/2009
#
#
# Страница просмотра учетки пользователя
# с выбором настроек, если этот пользователь вы
# и с просмотров проебаных вами (не им) событиями (новостями)

require "../config.pl";
require "../core.pl";
require "lib_litera.pl";

my $auth_id = do_check();

&get_query;
$act=$queryString{ "act" };
$id=$queryString{ "id" };


##################################################################
##################-Правельный вариант-############################
##################################################################
$uname_get=$queryString{ "uname" };                   ########
if (defined($uname_get))                                ####
{                                                       ####
	if ($uname_get != $auth_id)                     ####
	{                                               ####
		$masha=0;                               ####
	}                                               ####
	else						####
	{						####
		$masha=1;				####
	}						####
	$uname_id=$uname_get;                           ####
}                                                       ####
else                                                    ####
{                                                       ####
	$masha=1;                                       ####
	print "Location: ?uname=".$auth_id."\n\n";      ####
	#exit();						####
	$uname_id=$auth_id;                             ####
}                                                       ####
@uname = uname_get($uname_id);                        ########
#################################################################
#################################################################
#################################################################
#используется в /litera/index.pl, /musik/index.php||pl, /groups/index.pl

#print $masha."\n\n\n\n\n";
if(!$auth_id) {print "Location: http://xepec.ru/join.pl\n\n"; exit();};
if(!$act) {$act="create";}
#if(($act eq "show") && !$id) {print "Location: http://xepec.ru/litera/index.pl?act=list\n\n"; exit();}


###############################################################################################################################
#----------------------------------------------Вывод на экран информации------------------------------------------------------#
###############################################################################################################################
print "Content-type: text/xml; charset=utf-8\n\n";
print qq{<?xml version="1.0" encoding="UTF-8"?>
 <?xml-stylesheet type="text/xsl" href="./litera.xsl"?>

<document>
    <user id="@uname['0']" nic="@uname['3']" />
    <domain>xepec.ru</domain>
    <title>XEPEC.ru :: @uname['1']</title>
    <version>$VERSION</version>
};
do_print_menu();
 
 
#   <!--проебаные события-->

# 	if (!show_groups($user_id))
# 	{
# 		$text_1 = " ";
# 	}
# 	else
# 	{
# 		$ss = show_groups($user_id);
# 		for($i=0; $i<count($ss); $i++)
# 		{
# 			$nom=$i+1;
# 			$text_1 = "группа #".$nom.": ".$ss[$i]."<br>";
# 		}
# 	}
    $extras = "
      <h2>Пропущенно</h2>
       <p> <a href=\"#\">Open Web Design</a><br />
       <a rel=\"nofollow\" target=\"_blank\" href=\"http://validator.w3.org/check?uri=referer\">XHTML 1.0 Strict</a><br />
       <a rel=\"nofollow\" target=\"_blank\" href=\"http://jigsaw.w3.org/css-validator/check/referer\">Valid CSS</a> </p>
       <p>Тут можетбыть очень умный текст, но я не нашел его поэтому можно даже и не обращать на него внимания</p>
     <hr>".$text_1;
    
    
    
    $text="
	    <a href=index.php?act=create>Добавить</a>
				<div class=\"basicInfo\">";

use Switch;
switch ($act)
{
	case "list"
	{
		if($masha == 1)
		{
			print qq{
			<subnav>
				<object>
					<name>Добавить</name>
					<href>index.pl?uname=$uname_id&amp;act=create</href>
				</object>
			</subnav>\n};
			
		}
		else 
		{
			print qq{
			<subnav>
				<object>
					<name>Моя литература</name>
					<href>index.pl?autor=$auth_id&amp;act=list</href>
				</object>
			</subnav>\n};
		}
		print qq{
			<content type=\"litera\">
				<data>
					<list>\n};
					list_litera($uname_id);
		print qq{
					</list>
				</data>
			</content>\n</document>\n};
					
	}
	case "show"
	{
			print qq{
				<subnav>
					<object>
						<name>Редактировать</name>
						<href>index.pl?act=edit</href>
					</object>
				</subnav>\n
				<content type="litera">
					<data>
						<show>};
							print qq{<text><![CDATA[\n};
#print	qq{						<text xmlns:xlink="http://www.w3.org/1999/xlink" xlink:type="simple" xlink:href="http://img.yandex.net/i/www/logo.png" xlink:show="embed" />};
								$ur = $DOC_ROOT.litera_url(1);
								open(FILE, $ur) or die "Ошибка вывода содержимого фаила\n";
								print <FILE>;
								close(FILE);
							print qq{]]></text>};
			print qq{			
						</show>
					</data>
				</content>\n</document>\n};

	}
	case "create"
	{
			print qq{
				<subnav>
					<object>
						<name>Редактировать</name>
						<href>index.pl?act=edit</href>
					</object>
				</subnav>\n
				<content type="litera">
					<data>
						<create>};
							print qq{<tiny><![CDATA[\n};
#print	qq{						<text xmlns:xlink="http://www.w3.org/1999/xlink" xlink:type="simple" xlink:href="http://img.yandex.net/i/www/logo.png" xlink:show="embed" />};
								require "$DOC_ROOT/litera//tinymce/examples/simple.pl";
							print qq{]]></tiny>};
			print qq{			
						</create>
					</data>
				</content>\n</document>\n};

	}
	case "add"
	{
			mkdir("$DOC_ROOT/usr/$auth_id/litera",$PREM_CHMOD) || "Error: $!";
	}
}
			
$content = $text;
#require "$DOC_ROOT/theme.pl";
